home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / examples / excom0.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  939 b   |  51 lines
  1. unit Excom0;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, AdPort;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     ApdComPort1: TApdComPort;
  12.     Test: TButton;
  13.     procedure TestClick(Sender: TObject);
  14.     procedure ApdComPort1TriggerAvail(CP: TObject; Count: Word);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20.  
  21. var
  22.   Form1: TForm1;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27.  
  28. procedure TForm1.TestClick(Sender: TObject);
  29. begin
  30.   ApdComPort1.OutPut := 'ATZ'^M;
  31. end;
  32.  
  33. procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
  34. var
  35.   I : Word;
  36.   C : Char;
  37.   S : String;
  38. begin
  39.   S := '';
  40.   for I := 1 to Count do begin
  41.     C := ApdComPort1.GetChar;
  42.     case C of
  43.       #0..#31 : {Don't display} ;
  44.       else S := S + C;
  45.     end;
  46.   end;
  47.   ShowMessage('Got an OnTriggerAvail event for: ' + S);
  48. end;
  49.  
  50. end.
  51.